home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d8 / qmqmpc34.arc / DBBS.SCR < prev    next >
Text File  |  1990-09-20  |  1KB  |  53 lines
  1. ;------------------------------------------------------
  2. ; Filename: DBBS.SCR
  3. ; QMODEM SCRIPT FOR GENERIC dbbs LOGONS
  4. ; Script to attach to phone directory -
  5. ;
  6. ; -> Brad Berson 12/22/89
  7. ;------------------------------------------------------
  8. ;
  9. STRING NAME
  10. ASSIGN NAME "Brad Berson"              ; Logon name
  11. ;
  12. GRAPHICS ANSI
  13. TIMEOUT 15 KICK
  14. ;
  15. ; Put a DIAL command here to make this script usable
  16. ; with Alt-F or /S= script execution options.
  17. ;
  18. beep 1000
  19. beep 1200
  20. beep 1000
  21. beep 1200
  22. beep 1000
  23. CLRSCR
  24. note    Connected to $NUMBER at $DATE $TIME @$SPEED Baud
  25. note
  26. note    Generic dbbs Startup Script for
  27. note    $BOARD
  28. note    in Operation...
  29. note
  30. ;
  31. GOTO    STRT
  32. KICK:
  33. SEND    "^M"
  34. STRT:
  35. WAITFOR "FIRST Name: "
  36. TIMEOUT 45
  37. SEND    "$name^M"
  38. WAITFOR "Password -> "
  39. SEND    "$PASSWORD^M"
  40. WAITFOR "to continue  ****"
  41. WHEN    "to continue  ****" "^~^M"
  42. SEND    "^~^M"
  43. WHEN    "(SPACE) To Skip" "^~^~ "
  44. WHEN    "Q(uit" "^~^M"
  45. WHEN    "Read Them Now? " "N"
  46. TIMEOUT 240
  47. WAITFOR "H,? >"
  48. BEEP 800
  49. BEEP 800
  50. BEEP 800
  51. EXIT
  52. ;
  53.